home *** CD-ROM | disk | FTP | other *** search
/ Long Ban 3 / Long Ban 3 - Disc 2.iso / mac / DISK2 / DATA / phot.Dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1997-03-22  |  1.1 KB  |  63 lines
  1. on exitFrame
  2.   if isslideshowtimeout() and isautomode() then
  3.     startslideshowtimer()
  4.     go(the frame + 1)
  5.   else
  6.     go(the frame)
  7.   end if
  8. end
  9.  
  10. on wait t
  11.   set wk to the ticks + (t * 60.0)
  12.   repeat while wk > the ticks
  13.     nothing()
  14.   end repeat
  15. end
  16.  
  17. on buttonaction sp
  18.   set the visible of sprite sp to 0
  19.   puppetSound("Laser.aif", 2)
  20.   updateStage()
  21.   wait(1)
  22.   set the visible of sprite sp to 1
  23.   puppetSound(0, 2)
  24.   updateStage()
  25. end
  26.  
  27. on buttonaction2 sp
  28.   set the visible of sprite sp to 0
  29.   updateStage()
  30.   wait(0.5)
  31.   set the visible of sprite sp to 1
  32.   updateStage()
  33. end
  34.  
  35. on mouseDown
  36.   set sp to the clickOn
  37.   case sp of
  38.     2, 3, 4:
  39.       setspeed(sp - 1)
  40.       set the visible of sprite 5 to 0
  41.     6:
  42.       buttonaction(sp)
  43.       go(1, "menu")
  44.     7:
  45.       buttonaction(sp)
  46.       quit()
  47.     8:
  48.       set the visible of sprite 5 to 1
  49.       buttonaction2(sp)
  50.       go(the frame - 1)
  51.     9:
  52.       set the visible of sprite 5 to 1
  53.       buttonaction2(sp)
  54.       go(the frame + 1)
  55.     10:
  56.       if the visible of sprite 5 = 0 then
  57.         set the visible of sprite 5 to 1
  58.       else
  59.         set the visible of sprite 5 to 0
  60.       end if
  61.   end case
  62. end
  63.